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blocks to the bad block file, This also fixes 
f either the bad block 
s get into multiple headers and we 
m 


' 

4 

; pet 

the wrong header lbn stored into it after deallocating 
' nimal buffer environment. 


problems which would occur 
or bad log file 
are running in a 


[4 Gog 9 OULE TRUNC < | ncuace, (8115832) 
:001 j¢ps0008 008 IDENT = Rireith - 
Py ~ = 
P< > 1 BEGIN 
‘we 9 1: 
: 8 9464 : aaa aaa hit a ac lintel 
: 10 0010 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
: 1 pols : i. ALL RIGHTS RESERVED. * 
: : e 
: 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
: 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH tHe ‘ 
; 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WEREBY * 
: } aid : ~ TRANSFERRED. * 
Ps H 
$ 1 oS) 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; ¢ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: Z Be Z : ‘s CORPORATION. * 
Ps : t 
: $2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: ° 88 $ : te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; $f 0098 1 is : 
3 $3 BB 4 : Ve eRRReRe ERA KEARAEA AAA AAAETTTERAAAAERAAAAEAARRARARARAEAREE EE 
3 1 003 } i++ 
; : 0038 ' ; FACILITY: FIIACP Structure Level 2 
; 5s 0035 t ABSTRACT: 
; 4 0037 , This routine truncates a file by deallocating the indicated blocks. 
; 39 0039 i ENVIRONMENT : 
: 41 0041 1! STARLET operating system, including privileged system servi 
; ¢g sk 1! and lavernal onet Pout nse. nici ty 4 — 
: 4 1! 
3 44 4 1 !-- 
eo Re 
; rt 4 902? } AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Mar-1977 10:41 
; 9 ; i MODIFIED BY: 
7001 !CDS000 34 . 7 v04-001 CdS0008 Christian D. Saether 6-Nov-1984 
; 26 ; Fix observed bug which causes PRIMARY_FCB to 
; 54 1 

3 

3 | 
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v04-001 “Oct-19 £ BU UNC .832; (1) 
7008 !CDdS0008 0038 1! 

a) | 059 1! v03-013 CDS0007 Christian D. Saether 14-Aug-1984 

: 26 44 : } Remove reference to update_filesize routine. 

; 24 064 1 v03-012 cDS0006 Christian D. Saether — 31-July-1984 

: 2 ¢4 : Remove local declaration of get_map_pointer Linkage. 

: 39 0065 1! v03-011 CDS0005 Christian D. Saether S-July-1984 

; we ones 1: Do not call READ_HEADER with the file id argument 

; 0067 1! when re-reading primary header at the end because 

> 60 Bees 1} we always have a primary_fcb now and when this 

; 6) B88 1! routine is called from deaccess on a deferred 

: ? BRey : truncate, the fid field is not filled in. 

> 64 0072 1! v03-010 cDs0004 Christian D. Saether 22-Apr-1984 

: 2 Bose : Change Linkage L_TRUNC_CHECKS to L_JSB_2ARGS. 

> 67 0075 1 v03-009 ¢DS0003 Christian D. Saether 30-Dec-1983 

; os it : Use L_NORM Linkage and BIND_COMMON macro. 

: 70 0078 1! v03-008 CDS0002 Christian D. Saether g55590°19685 

: 4] sit : } Manually merge in code associated with STJ3097. 

: 73 0081 1! v03-007 $Ty3097 Steven T. Jeffreys, 29-Apr-1983 

s ie 1! Refinement of STJ3072. Only do the erase if the 

: Le 4 : } volume or file ERASE attribute is set. 

Paha 0085 1! v03-006 CDS0001 Christian D. Saether 21-Apr-1983 

: 78 0086 1! Break out initial error checks into separate routine. 

; 4 ele H : Make the truncation vbn an input argument. 

; 81 0089 1: v03-005 $1J3072 Steven T. Jeffreys, 25-Mar-1983 

; 8 0090 1! Erase blocks returned to the storage map. Later this | 
: S 8583 ! will be conditionalized. 

: «85 0093 1: v03-004 ACG0299 Andrew C. Goldstein, 12-Oct-1982 17:21 
s a6 Boa ! Make truncate tolerant of bad map pointer use count 

: 88 009% 1/ V03-003 ACG0296 Andrew C. Goldstein, | 8-Jul-1982 21:32 
3 34 B08 : Fix truncation of placed allocation pointers 

: 91 $099 1 i v03-002 ACG0287 Andrew C. Goldstein, Moser~19te 17:16 
3 3 8190 : } Check for index file in header rather than FCB 

: 94 $182 1 v03-001 LMP0023 L. Mark Pilant, 77-Apr-1982 16:45 
s 9 Biz 1 3 Give a privilege violation if attempting to truncate the 

: 38 Bite } index file (INDEXF.SYS). 

:; 98 0106 | i v02=011 ACG35898 Andrew C. Goldstein, | 10-Mar-1981 22:15 
3 190 Ht ; Update HIBLK in the prisary header 

: 101 109 1! v02-010 ACG0170 Andrew C. Goldstein, | 7-May-1980 18:27 
; 19 119 : Fix handling of map pointer use count 

: 104 N¢ 1 i v02-009 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:28 
: 105 113 Previous revision history moved to f11B.REV 

° ‘ee 


F11X.BUGSRCITRUNC. B32; 1 (1) 
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LIBRARY ‘SYSSLIBRARY:L Bt .L32°; 
REQUIRE "SRCS:FCPDEF.B 


FORWARD ROUTINE 
TRUNCATE : LLNORM NOVALUE, ! truncate file 
TRUNCATE HEADER : L_NORM NOVALUE, truncate individual file header 
TRUNC_CHECKS : LIJSB_2ARGS NOVALUE ; ! initial truncation error checks. 
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; 118 1333 ! GLOBAL ROUTINE TRUNCATE (FIB, FILEWEADER, TRNVBN) : L_NORM NOVALUE = 

: 120 1149 1 lee 

s 21 1118 1! 

: : § EB : FUNCTIONAL DESCRIPTION: 

> 1246 Vi21 1! This routine truncates a file to the size indicated in the FIB by 
: ie 11 ¢ 1! deallocating the necessary blocks. The erase flag controls whether 
: 126 11 1 ! the retrieval pointers are erased in the header. The deallocate flag 
.” Sar 11246 1! controls whether or not the blocks are actually returned to the 
$ 139 ie 5 : storage map. 

s 130 11 5 1 ! CALLING SEQUENCE: 

s U3) 1128 1! TRUNCATE <ARG1, ARG2, ARS3) 

: 13 1129 1! 

3 1 1130 1 =! INPUT PARAMETERS: ; 

3; (134 113) 1! ARG1: address of FIB for operation 

) eae 11 ¢ 1! ARG2: address of file header 

s 1% ii . 3 ARGS: VBN to truncate from 

: 137 1134 1! 

; «#4138 1135 1°! IMPLICIT INPUTS: 

3; «2139 1136 1! CURRENT_VCB: VCB of volume 

; 140 1137 1! 

3 «61461 1138 1 ! OUTPUT PARAMETERS: 

: i 1139 1! NONE 

: 16 1140 1! 

3 146 1141 1 >! IMPLICIT OUTPUTS: 

> «41465 Br 1! NONE 

; «146 1143 1! 

: 1647 1144 1 ! ROUTINE VALUE: 

: 148 11445 1! NONE 

: 149 1146 1! 

; 150 1147 1°! SIDE EFFECTS: 

s 151 11448 1: storage bitmap altered 

s 32 11449 1! file header altered 

: 153 1150 1: 

s 934 1151 1 !<= 

; «6155 1138 1 

: 156 115 § BEGIN 

. Ter 1154 

; 1588 1155 MAP F 

; 159 1156 FIB : REF BBLOCK,  ! FIB for operation 

: + oT 34 FILEHEADER : REF BBLOCK; ! file header 

: 166 1189 LINKAGE 

: 16 1160 L_MAKE_POINTER = CALL : 

; 1646 1161 GLOBAL (PREV_POINTER = 9); 

s 165 1166 

: 166 116 GLOBAL REGISTER 

: 167 1164 COUNT = 6, ' count of blocks returned 

; 168 1165 L = 7, ! LON of map entry 

; 169 1108 MAP_ POINTER s 3 : REF BBLOCK, : pointer to scan map 

: 170 116 PREV_POINTER = 9 : REF BBLOCK; ! pointer to build new map entry 
: 76 1169 LOCAL . 

: 17 1170 FCB : REF BBLOCK, ! FCB of current file header 

; 17% 1171 HEADER : REF BBLOCK, ! address of current. file header 
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ALT_HEADER 
NEW HEADER 
TRUAC_ POINTER, 
MAP 4 


' address of header copy to free blocks 

' address of extension file header 

! pointer to start of truncation 

! pointer to end of map area 
' relative VBN of operation 
HEADER_VBN i value of VBN at start of this header 
HEADER“SIZE, nuaber of blocks mapped by header 
ExT_FIB NGTH)], ! file ID of extension header 
segment number of ext header 
flag to reread primary header 
REREAD; | flag to update primary header 


Ex. SEGNUM 
REREAD 


LABEL 
DO_TRUNCATE, : main body of truncate processing code 
vBR_LOOP; ! main loop to scan for starting VEN. 


88 Be Ge OF Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe os 


BIND_ COMMON; 


EXTERNAL ROUTINE 
PMS_START SUB : L_NORM, 
S-END_ S08 : 


CONAOMVNE WS — OOOO E Ur 


: Start subfunction metering 

' end subfunction aoter ng 

' compute size mapped by header 

! search FCB List for FCB 
ghorge blocks to user's quota 

NG_MODE (GENERAL), 


CHARGE-QUOTA —s:_L-NORM, 
DEALLOCATE_BAD : LINORM’ ADDRESSI 


VEWN— 
- 
" 
o o 
x 
zB 
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! mark blocks bad 
MARK DIRTY . : LNORM, ' mark buffer for write-back 
CHECRSUM : ' checksum file header 


: : LINORM, 

3 GET MAP _ POINTER : L_MAP_POINTER, ! get value of next map pointer 
MAKE _POINTER 

§ 
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: LIMAKE POINTER, ! build a new map pointer 
L_NORM, ! read next extension header 

' allocate a block buffer 

: invalidate a block buffer 

' initialize FCB 

' weite file header 

! read file header 

: delete extension FCB's 

' delete remainder of file 


mae ATer os bee L-NORM 
: LTNORM, 
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DEL_EXTFCB : LINORM, 
DELETE_FILE : LINORM; 


: Start metering for this subfunction. 


PMS_START_SUB (PMS_ALLOC); 
TRUNC_CHECKS (.FIB, .FILEHEADER); 


! Establish the basic pointers. Round up the starting VBN to the next cluster 
boundary and adivet it to a zero start. 


' 
' 
: Round down the file size. 


HEADER 
FCB =. 
VON =, 
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! Init the user's return parameters. 


“oN 11 : 
TRUNC -Jan-1985 18:41:24 AX-11 Bliss-32 v4.0-742 
Bag an= 1382 13:24:98 tet ix.eucsresTA 832; 


' 

FIBCFIBSL_EXVBN] = 1; 

REREAD = 0; 

! Now scan the file headers for the retrieval pointer enterereg Ue starting 


. VBN. If the VBN is off the end of file, report the error; if coincides, 
; the operation is a noop. 


iw 
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DO_TRUNCATE: 
BEGIN 
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GIN 
MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETJ*#2; 
MAP _END = .MAP_POINTER + .HEADERCFH2$B_MAP_INUSEJ*#2; 
PREV POINTER =" .MAP_POINTER; 
HEADER_VBN = .VBN; 


UNTIL .RAP_POINTER GEQA .MAP_END DO 
GET_MAP_ POINTER (); 
IF [COURT GEQU .VBN THEN LEAVE VBN_LOOP; 
VBN = .VBN = sCQUAT: 
F JOCF16St _EXVEN = .FIBCFIBSL_EXVBN) + .COUNT; 


. COUN 
THEN PREV_POINTER = .MAP_POINTER; 


DDAE BEE EEE EE PI 
WN — OO OONOMNESWN OC ODNOUES WIN —OOW 
MMIPUTOROPOPoNoRoTPononoTfufnnonony 


Wn 


POPOIPIPOIPINIPINININIPININININININNINPU Po NPoPENNoNy 


FAOCMMMNNYIUVIM 


Mrmornn 
ys 


o 
w 
OOoOouwmn 


1 We have scanned through an entire header. Chain to the next header if it 
ox tats If we run out of headers, then the truncate point is beyond end 
!o e. 

' 


NEW_HEADER = NEXT_HEADER (.HEADER, .FCB); 
IF :NEW.HEADER EQC 0 THEN EXITLOOP; 


= ow 
HEADER = .NEW_HEADER; 


IF .FCB NEQ 0 
THEN FCB = .FCBCFCBSL_EXFCB); 
END; ! end of header scan loop 


IF .VBN NEQ 0 

THEN ERR_EXIT (SS$_ENDOFFILE) 
ND; ! end of VBN_LOOP 

! We are now pointing at the retrieval pointer in which the truncation starts. 
! VBN contains the number of blocks to retain in that pointer. We must now 


! round it down or up to the next cluster seungery. depending on whether or 
not the blocks are to be marked bad, respectively. 
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UNC .B32; 


89 § USER_STATUS(1] = = .VBN; 
90 VBN = ((.VBN 
91 : + (CIF NOT ah StF iesy MARKBAD] 
Q THEN .CURRENT_VCBLUCBSW_CLUSTER] = 1 
33 30 ELSE 6) 
95 9 / RRENT VCBCVCBSW_CLUSTER]) * .CURRENT_vCBLVCB$W_CLUSTER]; 
96 38 USER staTusti = ,USER STATUSEY + ,VBN; ™" : 
9 94 3 FIBCFIBSL_EXVBN) = .FIBLFIBSL_EXVBN) + VSN; 
38 99 HEADER_VBR = .HEADER_VBN + .USER_STATUSL1); 
00 9 ! See if rounding up is caus.ng us to keep the entire map pointer. If so, 
01 98 ! bump to the next pointer. If that takes us to the end of the map area of 
0 99 ' a neader with no extension, return with no action. (This case is common 
0 00 ! enough to be worth checking for.) 
04 01 ! 
05 0 
06 0 IF .VBN EQL .COUNT 
0 04 THEN 
0 05 BEGIN 
308 VBN = 0; 
30 PREV_POINTER = .MAP_POINTER: 
308 F .PREV_POINTER GEGA .MAP_END 
09 AND .HEABDER(FHOSW_EX_FIDNUA) EQL 0 


AND .HEADER[FH2SW EX FIDRVN] EQL 0 


1HEN LEAVE DO_TRONCATE; 
END; 


WAAAA AN 


(1) the pointer given is the last pointer in the header. 

(2) the header is the last one for the file, and (3) that the quantity 
being deallocated is exactly one cluster, this being the only condition 
we can correctiy handle. 


IF .FIBCFIBSV_MARKBAD) 
THEN 


Na -MAP POINTER NEQ .MAP 


END 
-COURT = .VBN NEQ .CURRENT VCBCVCBSW_CLUSTER] 
OR .HEADER(FH2$W_EX_FIDNUM) NEQ 0 
OR .HEADER(FH2SW ex FIDSEQ) NEQ 0 
THEN ERR_EXIT (SS$_BADPARAM) ; 


: Do the real truncate. Set up cleanup status and get control blocks in shape. 


WAAR POPSPIPOPUPDY ts tO 
MEW $0 ONO VE WN O OOO UN FWwh—OOO~ 


1 
CLEANUP~FLAG 


CLEANUP Lassie 
PRIMARY _FCB ere 
I 
s 


LF_F 
LPT] = 
BSC_ s 


1; 
.FIBCFIBSL_EXVBN) = 1; 


the record attributes to reflect the new file 


!' Update the HIB qa 
mary header.. 


f. 
$C 
LK 
size, if this is 


I 
N 
F 
f 
t 


IF NOT .REREAD 
THEN BBLOCK CHEADERCFH2$W_RECATTR), FATSL_HIBLK) = ROT (.FIBCFIBS._EXVBNJ-1, 16); 
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4 
! If we are turning blocks over to the bad block 4h os: check that 
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> 346 1343 | Make a Sopy of the fiie header with which to free the blocks. In the original, 
> 347 1544 ! zero out the map pponeers being freed and write the header back before 

; 348 1345 ; pte ee the blocks, so that we do not get a file header mapping free 
; Ps : ‘8 ; blocks if the system crashes while this is going on. 

: 351 1348 

; 2 1349 ALT MEADER = CREATE BLOCK (=1, 1, HEADER_TYPE); 

3 32 1350 INVALADATE (. ALT HEADER) ; 

; 354 1351 3 CHSMOVE (512, .HEADER, .ALT_HEADER); 

: 35 3 TRUNC_POINTER = .PREV_POINTER = .HEADER + .ALT_HEADER; 

: 57 1354 HEADERCFH2$B8_MAP_INUSE) = (.PREV_POINTER = .HEADER) / 2 = »HEADERCFH2$B_MPOF FSET); 
; 358 1355 IF .VBN NEQ 0 

|. ier 1356 TH 

; 360 1357 4 BEGIN 

; 361 1358 4 MAP_POINTER = .PREV_POINTER; 

3 o¢ 1359 4 GET MAP_POINTER (); 

; 3% 1360 4 MAKE_POINTER (.VBN, .LBN HEADER. 

: 364 130) 5 (IF .PREV_POINTERLFM2SV FORMAT) EQL FM2$C_PLACEMENT 

; 365 1 6¢ 5 THEN .PREV_POINTERCFM2SW_WORDO) 

; 366 1363 4 ELSE 0)); 

; 367 1 308 $ END; 

; 68 1365 MAP_END = .HEADER + pi ADE RCE NESR ACOFFSETI*2: 

: 69 1308 IF .MAP_END PREV_POINTER GTR 

; 20 1367 THEN CHSFILL (0, .MAP_END - .PREV_POINTER, .PREV_POINTER); 

; 34) 1369 EX SEGNUM = ,HEADERCFH2$W_SEG_NUM) + 1; 

; 373 1370 CHSMOVE (FIDSC_LENGTH tage WET EXT FID], EXT_FID); 

: 374 1371 3 CHSFILL (0, FIBSC_LENGTH, HEADERCFH2$W_EX?_FIDJ); 

; 75 1376 CHECKSUM (HEADER); 

: iF 1323 WRITE_HEADER (); 

; re a 130? If _ .FCB NEQ 0 AND .FCB NEQ .PRIMARY_FCB 

; 144 : 6 THEN KERNEL_CALL (INIT_FCB2, .FCB, HEADER); 

; «(381 1398 ' Compute the number of blocks a deallocated and credit them to the 

:; i379 ! file owner. We compute this by taking the total space mapped by the header, 
; ti 1380 : less the number of blocks passed over in the scan. 

; 38s 1386 

; 86 138 IF NOT .CLEANUP_FLAGSCCLF _NOTCHARGED) 

; HH 1384 THEN 

; 388 1385 4 BEGIN 

; «6389 1 36 4 HEADER_SIZE = FILE site (,ALT_HEADER); 

; 390 1387 4 CHARGE-QUOTA (.HEADERLFH2$L_FILEOWNER), = (.HEADER_SIZE = .HEADER_VBN), 
; 391 1388 4 BITLIST (QUOTA_CHARGE)); 

; 3 1389 END; 

; 39 1390 

;001 !cpso00ds 1391 REREAD2 = .REREAD; 

:002 !CdS0008 139 ! 

; 3594 139 : Now we can free the blocks being truncated off. They are turned over 

: 395 ee either to the storage map, or to the bad block file. 

; 3 139 

; 398 139 If .FIBCF IBSV_MARKBAD) 

;. 399 1398 THEN 

3001 !cpsoo00m8 1399 4 BEGIN 
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;00 1 EDS O08 DEALLOCATE_BAD (.FIB, .ALT_HEADER, .TRUNC_POINTER, .VBN); 


We need to re-read the primary header because the headers for the 

badblk.sys and badlog.sys files were = Likely read in deallocate_bad 

and they have set the cott HEADER_LBN with the wrong Lbn, which wilT 

get stored ee ey n the pr mary _fcb when the update_fcb routine 
s called at the end of the MODIFY 


333338 


routine. 


BEGIN 
BBLOCK CHEADERCFH2$W_RECATTR], FATSL_HIBLK] = ROT (.FIBCFIBSL_EXVBNJ-1, 16); 
wee (HEADER) ; 


Stop metering of this subfunction 


PMS_END_SUB (); 
END; ' end of routine TRUNCATE 


1400 4 
1401 4 
14 § 4 
: 14 4 
3 1404 4 
| 1 
3009 !CdS000 1407 4 | The re-read also needs to be done in case either badblk or badlog have 
3010 !CDS000 1408 4 ! multiple headers. 
3011 !CDS000 1409 4! 
Olg 'CdS000 1410 4 
301 RSet 1411 4 REREAD = 1; 
3014 !COS Vig 4 END 
7015 !CdS000 141 ELS 
3016 !'CDS000 1414 TRUNCATE HEADER (.FIB, .ALT HEADER, .TRUNC_POINTER, .VBN); 
7017 !CoS0008 1415 
> 405-5 1416 IF -EXT_FIDEF IDSW_NUM NEQ 0 
:; 406 1417 OR .EXT_FIDIFIDSW_RVNJ NEQ 0 
; 407 1418 THEN 
; 408 1419 & BEGIN 
; 409 1420 4 REREAD = 1; 
; 410 és! 4 HEADER = NEXT_HEADER (O, .FCB, EXT_FID, .EX_SEGNUM); 
: 411 14 é 4 KERNEL_CALL (DEL_EXTFCB, .FCB); 
; aie 1423 4 DELETE_FILE (.FIB, .HEADER); 
; «(41 Pe ; END; 
s 416 1425 
; tH : § END; ! end of block DO_TRUNCATE 
; 417 1428 ! If this was a truncate of a multi-header file, reread the Bae | header 
; 418 1429 ! and update the HIBLK field in the record attributes to reflect the new file 
3; 419 1430 ' size. 
; 420 1431 ! 
: 421 1 ¢ 
; rt 1 2 IF .REREAD 
3 rit ’ r THEN HEADER = READ_HEADER (0, .PRIMARY_FCB); 
; 425 1436 IF ,REREAD2 
: 426 1437 THEN 
: 627 1438 
: 428 1439 
; 429 1440 
; 430 1441 
ets 
3 re 1444 
; 434 1445 
; «6435 1446 
3; 4 1447 
: 6 1448 
:; 6 1449 
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4 38 . 
N CHARGE QUOTA, DEALLOCATE_BAD 

N MARK DIRTY, CHECKSUM 

N GET_MAP POINTER 

N MAKE_POTNTER, NEXT_HEADER 
RN CREATE BLOCK INVACIDATE 
-EXTRN INIT _FCB2, WRITE_HEADER 
-EXTRN READ-HEADER, DEL“EXTFCB 
-EXTRN DELETE_FILE 


-PSECT SCODES,NOWRT,2 


OB ¢ 900 .ENTRY TRUNCATE, Save R2,R3,R4,R5,R6,R7,R8,RO,.R11 ; 
5E 24 g 00 SUBL2 : 
5 80 AA SE 0900 MOVAB -128(BASE), R2 : 
8 DD 90009 PUSHL # : 

00006 cf 1 FB 00 08 CALLS #1, PMS_START_SUB : 
0 04 aC 7D 0001 mova) 3—>.-—«sF 1B, ; 

0000v 30 00014 BSBW §_ TRUNC_CHECKS : 

10 AE 08 AC DO 00017 MOVL FLEHEADER, HEADER : 
OC AE 08 AA 00 0001¢ MOVL. &8(BASE), FC : 
OC ac 01 C3 00021 SUBL3. #1, TRNVBN, VBN : 
50 04 AC 00 00 7 MOVL IB, R : 

1¢ AD 07 00 00028 MOVL #1, 28(RO) : 
04 AE 04 0002F CLRL_ REREAD ; 

10 AE 07 C1 900 g 1$ ADDL3 #1, HEADER, R1 : 
50 61 A 00 MOVZBL ( : 

58 10 BE4O 3E OO03A MOVAW HEADER RO], MAP_POINTER : 

10 AE 3a C1 0003F ADDL3 #58, HEADER. R1 : 
50 61 3A 0044 MOVZBL .R : 

58 6840 ; 0047 MOVAW (MAP POINTER)CROJ, MAP_END ; 

59 58 00 00048 MOVL MAP_POINTER, PREV_POINTER : 

6E 08 Ar DO 904 MOVL § VBN; HEADER_V ; 

58 58 D1 00052 2$ CMPL § MAP_POINTER> MAP_END : 

iE it 005 BGEQU : 

00906 0057 BSBY GET_MAP_POINTER : 

08 AE 6 D1 OO05A CMPL GOURT, JBN 3 
47 1 O05 BGE GY $ ; 

08 aE 56 Ce 0006 UBL2 COUNT, VBN : 
50 04 AC D 0064 MOVL , RO : 

1¢ =A 36 CO 00068 ADDL2 COUNT, 28(RO) : 

D5 0006C TSTL OUNT ; 

E 13 00 BEQL $ ; 

59 b0 MOVL § MAP_POINTER, PREV_POINTER ; 

DD 11 0007 BRB 2$ : 

0c AE 0D 00075 3s PUSHL FCB ; 

14 AE DD 00078 - PUSHL HEADER F 

00006 CF Q F CALLS #2, NEXT_HEADER : 
3 D MOVL RO, NEW_READER ; 

18 1 BEQL 4$ ; 

046 AE 91 D MOVL #1, REREAD ; 
10 AE 30 MOVL § NEW_HEADER, HEADER ; 
0c Ar p TSTL «FCB : 

A BEQL=ss«éS$ ; 

50 oc AE oc C 9 ADDL3 #1 FCB, RO ; 
=a $ 0 9 MOVL (ROS, FCB ; 

98 BRB 3 

08 AE D5 0009D 4$ TSTL VBN ; 
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4(BASE), RO 
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VBN 

=10 
(RO), R3 


18 
VBN, 28(RO) 
4(R0), HEADER_VBN 
VBN, COUNT 


VBN 
MAP_POINTER, PREV_POINTER 
PREV_POINTER, MAP~END 


#14, HEADER, RO 
(R 


R05 
#18, HEADER, RO 
(ROS 


1$ 

FI, RO 

#2, °23(RO), 10$ 

MAP POINTER, MAP_END 
COUNT, R1 


VBN 
-104(BASE). RO 
#0, #16, 60(RO), RI 


#14, HEADER, RO 
(ROS 


9$ 
#6 HEADER, RO 
(ROS 
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51 10 A 18 ¢1 00165 ADDL3 #24, HEADER, R1 : : 
61 56 18 $C 1A ROTL aie. Mi (R‘) : : 
E 1 70 16 11$:  MOVd #1, =(SP) + 1349 C 
7E 1 CE 001 MNEGL #1, (SP) : , 

00006 CF ; Fe 174 CALLS a3, CREATE_BLOCK ; 
14 AE D0 00179 MOVL RO, ALT_HEADER : E 
14 At DD 00170 PUSHL fi R ; 1350 E 
00006 CF F 1 CALLS #1, INVALIDATE : E 
14 10 0200 8F 28 001 MOVCS #512, @HEADER, @ALT_HEADER + 1351 E 
10 A 1 SUBL3 HEADER PREY POINTE ,R : 1352 E 
18 A 14 BES é 19 MOVAR  @ALT HEADERLROJ, TRUNC_POINTER me E 
51 10 AE ah C1 0019 ADDL3 #58, HEADER, R1 : E 
52 10 A 1 C1 OO1A ADDL3 #1, HEADER, R2 : E 
61 5 62 83 OOIA SUBB3 © (R2), RO, (R1) Ba F 
08 AE OD 1A9 TSTL VBN 3 1375 / 

1 13 OO1AC BEQL =-«*14$ : 
58 9 1AE MOVL PREV_POINTER, MAP_POINTER : 1358 F 
00006 181 BSBW  GET_MAP_ POINT : 1359 F 
CO BF 01 «Ad 1B4 BITB 1(PREV_POINTER), #192 + 1361 F 
05 12 0189 BNEQ 3 F 
7E 69 3C 0016B MOVZWL (PREV_POINTER), =(SP) t 1362 F 
02 11 0018 BPB 13$ 3 F 
7E 04 O01C 128: CLRL = = (SP) + 1361 G 
14 AE DD 001C2 13$:  PUSHL HEADER : 1360 G 
57 DD OO1C PUSHL  LBN 3 G 
14 AE DD 001C7 PUSHL VBN : G 
00006 CF 04 FB OOICA CALLS #4, MAKE_POINTER : G 
51 10 aE 02 i OOicF 148: ADDLS #2. HEADER, R1 ; 1365 G 
4 107 MOVAW @HEADERCRO], MAP_END : G 
38 ” Bee Di Bibe CMPL § MAP_END, PREV_POINTER > 1366 G 
5 BF 8 Soret CtEL2 — PREV_POINTER, 11 > 1367 ¢ 
5B 00 ar 00 sé Dore sucks #0, TSP), #0. R11, (PREV_POINTER) G 
10 A 04 €1 QO1EA 15$: ADDL3 #4, HEADER, RO > 1369 1 
” 5 0 gt 1EF MOVZwL (RO), EX_SEGNUM ; I 
6 06 1F2 INCL EX_SEG : I 
57 10 A E 1F4 ADDL3 #1%, HEADER, a7 : 1370 I 
1 OA 6 6 19 MOVCS #6, (R7), EXT_FID : | 
5 10 AE g Ore ADDL3 #14, HEADER, R7 : 1371 I 
06 00 6E 0 C movcS #0, (SP), #6, #6, (R7) 
10 AE DD PUSHL HEADER : 1372 I 
00006 CF 1 FB C CALLS #1, CHECKSUM : I 
00006 CF 0 F 11 CALLS #0, WRITE HEADER : 137 I 
oc 85 8 08518 Gi tt ae t 
08 AA Oc AE o 1 CMPL FCB, 8(BASE) : L 
0B BEQL : M 
10 AE DD PUSHL HEADER : 1376 . 
wie Be CAS WS” INIT_FCB2 . 

1B sents SA % £8 D 168: § woo, (BASE), 17% : 1383 
16 AE DD 1 PUSHL  ALT-HEADER ; 1386 
00006 CF 07 FB 00 CALLS #1, "FILE_SIZE : 


Maa 
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#2 

HEADER SIZE, HEADER_VBN, -(SP) 

’ HEADER, R 

#3, CHARGE_QUOTA 

REREAD, REREAD2 

FB, RO 

#2, °23(RO), 18$ 
TRUNC POINTER 

ALT_HEADER 

#4, DEALLOCATE_BAD 

#1. REREAD 

19$ 

VBN 

TRUNC_POINTER 

ALT_HEADER 

#4, TRUNCATE_HEADER 
xT _FID 


EXT_FID+4 
1$ 

#1, REREAD 
EX” SEGNUM 
EXT_FID 
FCB 
-(SP) 

#4, NEXT_HEADER 
RO HEADER 

#1, DEL_EXTFCB 
HEADER 

#2, DELETE_FILE 
REREAD 5g 
8(BASES 

(SP) 

#e, READ_HEADER 
RO, HEADER 
REREAD2, 238 
FIB, R 

#1, 28(RO), RO 
Hel, HEADER R1 
#16, RO, (RI) 
HEADER 

#1, MARK DIRTY 
#0; PMS_END_SUB 


Se Se Ge See Se Se Se Ge Se Oe Se Se Be Se Oe Be Oe Os Be Oe Be Bete Se Se Se Ge Ge Ge Se Se Ge Ge Fe Ge Se Ge Be Be Ge Se Se Se Se Se Sse Ge Se Se 


YwONUNNYUADAAAAAAADADAVDAASEBiwn 


NNvunnunnwnunnwnoum 


12 
-Jan-1985 18:41:24 AX-11 Bliss-32 V4.0-74 Page 14 
b-Jan-1985 13:24:96 F11X.BUGSRCIJTRUNC.832; es RS 


; rr 1029 ! GLOBAL ROUTINE TRUNCATE_HEADER (FIB, HEADER, POINTER, LAST_COUNT) : L_NORM NOVALUE = ° 
3; 44 1626 1 !e4 S 
> 44 14 . 3 S 
; ret Veee : } FUNCTIONAL DESCRIPTION: : 
; 446 1028 1! This routine returns the indicated retrieval pointers in the given S 
> 447 1457 1! file header to the storage map. s 
; 448 1458 1! $s 
3: 449 1459 1! S 
; 450 1460 1 ! CALLING SEQUENCE: S$ 
; $2) 196) : TRUNCATE_HEADER (ARG1, ARG2, ARG3, ARG4) : 
: re 1288 1 ! INPUT PARAMETERS: $ 
> 454 1464 1! ARG]: address of FIB of operation S 
: 455 1465 1! ARG2: address of file header $s 
; 4656 1466 1! ARGS: address of first retrieval pointer to process, if present Ss 
: 34 1467 ! ARG4: new count field of first pointer, if present : 
3; 459 1469 1°! IMPLICIT INPUTS: S 
; 460 1470 1! NONE S 
: 461 1471 1! S$ 
: rey arg 1 ! OUTPUT PARAMETERS: Ss 
3; 46 1475 1! NONE Ss 
; 404 1474 1! S 
> 465 1475 1°! IMPLICIT OUTPUTS: 

; 466 1476 1! NONE 

: 467 1477 1! 

; 468 1478 1 ! ROUTINE VALUE: 

; 469 1479 1! NONE 

: 470 1480 1! 

3; «471 1481 1 ! SIDE EFFECTS: 

: 472 136 1! file header altered, storage map altered 

; 473 1483 1! 

: 476 1484 1 !<- 

3; 475 1485 1 

; 47 1486 BEGIN 

: 47 148 

3; «6478 1488 MAP 

3; 479 1489 FIB : REF BBLOCK, ! user FIB 

: 480 1490 HEADER : REF BBLOCK; ! file header 

; 481 1491 

; 48 1436 GLOBAL REGISTER Ss 
; 48 149 COUNT = 6, ' count of blocks returned ! 
; 484 1494 LBN = 7, ! LBN of map entry S$ 
3 or? 1623 MAP_PGINTER = 8 : REF BBLOCK; ! pointer to scan map : 
; rh 1299 LOCAL S 
; 488 om MAP_END; ! address of end of map area $ 
: 489 14 S$ 
; 490 1500 2 BIND_COMMON; S 
7 (491 1501 S 
; (49 1208 EXTERNAL ROUTINE S 
; 49 150 GET _MAP_POINTER : L_MAP_POINTER, ! get value of next map entry S 
> 49% 1504 RETORN_BLOCKS +: L-NORM ADDRESSING MODE (GENERAL); 

: rhe 1283 ! return blocks to storage map 
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; 497 1507 S 
8 re: 1508 LOCAL “ 
3 44 : 94 ERASE _FLAG; : 
; 501 1511 ! Determine if blocks being returned should be erased. Erase them if $s 
: O 1218 either the volume or file erase attribute is set. : 
: 504 1514 ERASE_F ! Assume no erase necessary Ss 
; 505 1515 2 IF SEORRENT rusatvcasy ERASE] i Check the volume attribute S 
; 506 1318 OR *GEADERLPH $V_ERASE ! Check the file attribute fn the header S$ 
; 507 151 THEN $ 
3 BB 1518 ERASE_FLAG = 1 Ss 
: 50 1519 EL S 
; 19 1 9 if -PRIMARY_FCB NEQ 0 ! Check the file attribute in the FCB : 
3 sie 13 ¢ IF_.PRIMARY_FCBCFCBSV_ERASE) : 
; 514 1524 ERASE_FLAG = 1; s 
: 3 1358 5 3 : 
» Sir 1527 ! Establish pointers into the file header. If explicit args are supplied, use T 
3 218 1398 ; them; else default to releasing the entire file header. ’ 
: 520 1530 T 
s. Ser 1531 MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETJ*2; T 
; 25¢ 1396 2 MAP_END = .MAP_POINTER + .HEADERLFH2$8_MAP_INUSEJ®*2; Y 
3 ase 1382 IF ACTUALCOUNT GEQ 4 T 
; 525 1535 THEN T 
; 526 1536 as T 
. Ser 1337 POINTER = .POINTER; U 
s 52 1538 af TLAST COUNT NEQ 0 U 
3 Sev 1539 THEN U 
; 530 1540 4 BEGIN U 
; 531 1541 4 GET MAP_POINTER () U 
3 238 1366 4 RETORN_BLOCKS (. LB LAST_COUNT, .COUNT=-.LAST -COUNT, re FLAG); UI 
: 33 1543 4 FIBCFIBSL_EXSZ] = .FIBCFIBSL_EXSZ2] + .COUNT =~.LAS™_COUN U 
; 534 1544 END; U 
; 535 1545 END; U 
; 336 1268 U 
§ 238 HF 944 : j Mow scan the map area, cleaning out pointers and releasing blocks. +4 
; 339 1549 U 
; 540 1550 UNTIL ig POINTER GEQA .MAP_END DO U 
3; 541 1551 eee U 
; 246 1226 U 
3: 54 155 ee BLO Bens t COUNT . ERASE ,fLAG); U 
> 544 1554 Fietr 16$L_ExS2) = Bi, FIBSL_EXSZ) * .COUNT; U 
: 545 1555 U 
$ 208 1228 U 
3; 155 END; ! end of routine TRUNCATE_HEADER . 
U 
U 


.EXTRN RETURN_BLOCKS 
01DC 00000 .ENTRY TRUNCATE_HEADER, Save R2,R3,R4,R6,R7,R8 : 1450 
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54 000000006 99 oF 2 MOVAB RETURN_BLOCKS, R4 ; § 

D CLRL SE_FLA + 1514 : 

50 98 AA D B MOVL =-104(BASE), RO + 1515 U 

14 53. AD 03 €E 00 F BBS 83(RO). : U 
50 08 ac OD 14 MOVL HEADER RO + 1516 \ 

0B 36—OA 07 €0 00018 BBS #1, 54(RO), 1$ : U 
5 08 AA D 14 MOVL (BASE), rb + 1520 u 

03 22 ag 06 €1 0 3 BBC #6, 34(RO), 2$ : 1522 U 
a 01 DO 00028 1$ MOVL #1, ERASE FLAG + 1524 U 

51 08 AC DO 00008 2$ MOVL HEADER, RT + 1531 U 

20 01 Al 9A 00 F MOVZBL 1(R1) : U 

6140 3E 3 MOVAW (R1)CROJ, MAP_POINTER : U 

20 3A ALCOA 000 7 MOVZBL 58(R1) : 1532 u 

5 6840 3€ 00038 MOVAW (MAP_POINTER)CROJ, MAP_END : U 

04 6C 91 0003F CMPB ss (AP) > #4 + 1534 U 

29 1F 00042 BLSSU 3$ ; U 

58 0c AC 00 00044 MOVL POINTER, MAP_POINTER + 1537 U 

10 aC D5 00048 TSTL LAST _COUNT : 1538 U 

20 13 00048 BEQL 5 : U 

00006 30 00040 BSBW  GET_MAP_POINTER + 1541 U 

52 op 00050 PUSH, ERASE_FCAG : 1542 U 

7E 56 10 AC 3 BOs SUBL LAST_COUNT, COUNT, -(SP) : U 
10 BC4? SF 0005 PUSHAB GLAST COUNT CLBNI : U 

64 03 FB 0005B CALLS #3, RETURN_BLOCKS ; x 

50 04 ac 00 9005 MOVL. F1B, R t 1543 2 

51 56 18 Ad C1 0006 ADDL3 24(R0), COUNT, R1 : x 
18 AO 51 10 ac C3 0006 SUBL3 LAST_COUNT, RI, 26(RO) : x 
53 58 Di 0006D 3$: CMPL  MAP_POINTER, MAP_END + 1550 x 

16 IE 0970 BGEQU 4 ; x 

00006 3 90072 BSBW  GET_MAP_POINTER : 155 x 

52 0D 0007 PUSHL ERASE_FCAG 3 135 x 

36 DD 90077 PUSHL COUNT : x 

57 0D 00079 PUSHL LBN : x 

64 03 FB 00078 CALLS #3, RETURN_BLOCKS : x 

50 04 ac 00 O07 MOVL FIB, R : 1554 x 

18 AO 56 CO 0008 ADDL2 COUNT, 24(RO) : x 

ES 11 00086 BRB 3$ : 1550 x 

04 00088 4$ RET : 1557 x 

; Routine Size: 137 bytes, Routine Base: S$CODE$S + O2EA ; 
x 

> 548 1558 1 x 
x 

« 

x 

x 

x 

x 
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3 20 1338 ] GLOBAL ROUTINE TRUNC_CHECKS (FIB, HEADER) : L_JSB_2ARGS NOVALUE = S 
: 22¢ 1561 1! x 
s; 3 1266 1! x 
>; 554 1865 1! x 
s 39 1564 1 x 
; to 1565 BEGIN x 
; $57 1266 x 
3; toe 156 MAP x 
: 559 1568 FIB : REF BBLOCK, x 
; $60 1569 HEADER : REF BBLOCK; x 
>; 561 1570 x 
3 206 1971 BIND_COMMON; x 
; + 1278 x 
: 564 157 ! The block count must be zero ‘default). x 
: 565 1574 : If the operation calls for the blocks to be turned over to the bad block x 
: 566 1575 ! file, the caller must be system. x 
; 567 1576 ! x 
; 568 1577 x 
; 569 1578 IF .FIBCFIBSV_MARKBAD) x 
; 570 1579 AND NOT .CLEANUP_FLAGSCCLF_SYSFRV] x 
; an) 1280 THEN ERR_EXIT (SS$_NOPRIV); ~ 
: 378 1388 ! Check for the index file INDEXF.SYS K 
; 576 158 : x 
s S75 1584 x 
; 576 1585 IF .HEADERCFH2$W_FID_NUM] EQL FIDSC_INDEXF x 
: $77 1586 AND .HEADERLFH2SW_FID SEQ] EQL FIDSC_INDEXF 
: 578 1587 AND .HEADERLFH2$8 FID NMX) EQL 0 
; T44 1388 THEN ERR_EXIT (SSS_NOPRIV); 
: 3B) 1229 IF .FIBCFIBSL_EXSZ] NEQ 0 THEN ERR_EXIT (SS$_BADPARAM); 
s $85 1338 ! Init the user's return parameters. 
; 584 159 ‘ 
; 585 1594 
; 586 1595 § FIBCFIBSL_EXSZ) = 0; 
; 587 1596 
; 588 1597 1 END: 
04 17 =o 02 €1 00000 TRUNC_CHECKS:: 
BBC #2, 23(FIB), 1% : 1578 | 
1 01 AA €9 C0005 BLBC 1(BASE), 2% 3s 1379 | 
01 08 Al 61 00009 1$: CMP (HEADER), #1 > 1585 
O& 12 B2080 BNEQ 3 
01 OA A 8] OOOF CMPW 1O(HEADER), #1 ; 1586 
68 1 BNEQ : 
0D Al 9 1 TST8 13( HEADER) ; 1587 
s 1 BNEQ 3$ : 
4 BF 1A 28: CHAU = «#36 : 1588 | 
5 1C RSB : 
18 «OA Be 1D 38 TSTL 24(F 1B) ; 1890 | 
0 1 0020 BE QL 4$ 3 


41 
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“0c t-1984 1 43: 3 F11X.BUGSRCJTRUNC. 832; 
14 «BF 600 2 CHMU #20 
05 00024 RSS 
18 AO D4 00025 4$: CLAL 24(F 1B) 
05 00028 RSB 
Routine Size: 41 bytes, Routine Base: S$CODES + 0373 
589? 1598 1 
590 1599 1 END 
591 1600 0 EUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 924 NCVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NCPIC,ALIGN(2) 
Library Statistics 
socecee= Symbols -------- Pages Processing 
File Total toaded Percent Mapped Time 
-$255$D0UA18:CSYSLIBILIB.L32;1 18619 49 0 1900 00:02.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$: TRUNC/OBJ=0BJ$:TRUNC MSRC$- FRUNC/UPDATE =(BUG$: TRUNC) 
Size: 924 0608. + 0 data bytes 
me: 


Elapsed Time: oy: 09. 
Lines/CPU Min: 12 
Lexenes/CPU-Min 49512 
Y Used: 353 pages 
Comol ation Complete 
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